home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / firese1a / search.bas < prev    next >
BASIC Source File  |  1999-09-26  |  1KB  |  26 lines
  1. Attribute VB_Name = "search"
  2. Global textsearch As String
  3. Global engine As String
  4.  
  5. Public Sub search()
  6.         textsearch = StrConv(textsearch, vbLowerCase)
  7.     Select Case mainwin.engine
  8.     Case "Yahoo"
  9.         mainwin.results.Navigate "http://search.yahoo.com/bin/search?p=" + textsearch
  10.     Case "HotBot"
  11.         mainwin.results.Navigate "http://www.hotbot.com/?MT=" + textsearch + "&SM=MC&DV=0&LG=any&DC=10&DE=2&BT=H"
  12.     Case "Lycos"
  13.         mainwin.results.Navigate "http://www.lycos.com/cgi-bin/pursuit?cat=dir&query=" + textsearch
  14.     Case "AltaVista"
  15.         mainwin.results.Navigate "http://www.altavista.com/cgi-bin/query?pg=q&kl=XX&stype=stext&q=" + textsearch
  16.     Case "MSN"
  17.         mainwin.results.Navigate "http://search.msn.com/spbasic.htm?MT=" + textsearch
  18.     Case "Infoseek"
  19.         mainwin.results.Navigate "http://infoseek.go.com/Titles?qt=" + textsearch + "&col=WW&sv=IS&lk=noframes&svx=home_searchbox"
  20.     Case "Mamma"
  21.         mainwin.results.Navigate "http://www.mamma.com/Mamma?lang=1&timeout=4&qtype=0&query=" + textsearch + "&Submit=Find+It%21"
  22.     Case "Dogpile"
  23.         mainwin.results.Navigate "http://www.dogpile.com/texis/search?q=" + textsearch + "&fs=web&to=thirty"
  24.     End Select
  25. End Sub
  26.